home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
usrmrg.zip
/
RBBS-PC.MRG
next >
Wrap
Text File
|
1988-10-26
|
3KB
|
70 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce D:\LITE\RBBS-PC.BAS
* RBBS-PC.BAS: Date 10-12-1988 Size 138779 bytes
* ------------[ Created 10-26-1988 19:26:06 ]------------
* REPLACING old line(s) by new
* ------[ first line different ]------
11110 A$ = "D)elete, F)ind, M)enu, N)ew pwd, P)rint, R)eset graphics,"+CRLF$ 'USRBYTE MOD
A$ = A$ + "Q)uit, S)ecurity, U)ploads/downloads, #)user , T)ime used" 'USRBYTE MOD
IF RESTRICT.BY.DATE THEN _
A$ = A$ + _
",$)RegDate"
GOSUB 12999
IF NOT SCAN.USERS AND Q = 0 THEN _
GOTO 11310
* REPLACING old line(s) by new
11115 Z$ = LEFT$(B$(1),1)
CALL ALLCAPS (Z$)
* ------[ first line different ]------
X = INSTR("DNPQFSMRU$T#",Z$)
IF Z$ = "" AND SCAN.USERS THEN _
GOTO 12965
ON X GOTO 11130,11160,11220,11320,11340,11390,11330,11400,11410,11450,11420,11127
* REPLACING old line(s) by new
11400 LSET USER.OPTIONS$ = LEFT$(USER.OPTIONS$,5) + _
"0" + _
MID$(USER.OPTIONS$,7)
GOTO 11290
* ------[ first line different ]------
'*************************************************************
'* U - COMMAND FROM 5 CHANGE UPLOADS AND DOWNLOADS *
'*************************************************************
'
* INSERTING new line(s)
11410 A$ = "Enter NEW value for uploads, press (ENTER) for no change"
GOSUB 12995
IF Q = 0 THEN _
GOTO 11412
LSET USER.UPLOADS$ = MKI$(VAL(B$(1)))
11412 A$ = "Enter NEW # of Upload bytes, press (ENTER) for no change"
GOSUB 12995
IF Q = 0 THEN _
GOTO 11414
LSET UL.BYTES$ = MKS$(VAL(B$(1)))
11414 A$ = "Enter NEW value for downloads, press (ENTER) for no change"
GOSUB 12995
IF Q = 0 THEN _
GOTO 11415
LSET USER.DOWNLOADS$ = MKI$(VAL(B$(1)))
11415 A$ = "Enter NEW # of Download bytes, press (ENTER) for no change"
GOSUB 12995
IF Q = 0 THEN _
GOTO 11290
LSET DL.BYTES$ = MKS$(VAL(B$(1)))
GOTO 11290
'
'*****************************************************************
'* T - COMMAND FROM 5---CHANGE TIME LEFT *
'*****************************************************************
11420 A$ = CRLF$ + "Enter new value for Time used, press (ENTER) for no change"
GOSUB 12995
IF Q = 0 THEN _
GOTO 11290
LSET ELAPSED.TIME$ = MKI$(VAL(B$(1)))
GOTO 11290
'
' *****************************************************************************
'
' * $ - COMMAND FROM 5 - USER MAINTENANCE (CHANGE REGISTRATION DATE) *
'